home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / Personal Press 2.0 / PPPouch / Additions / Text Sizes / 48 point / 48 point next >
Text File  |  1992-06-08  |  700b  |  42 lines
  1. on startup
  2. global bailout
  3. checkTextToolIsOn
  4. if bailout = "false" then
  5. set textsize  to 48
  6. end if
  7. end startup
  8.  
  9.  
  10.  
  11. on checkTextToolIsOn
  12. global bailout
  13. trace on
  14. put "true" into bailout
  15.  
  16. if toolmode <> "textTool" then
  17. answer "The TextTool must be turned on."
  18. else if currentStoryNumber() = "none" then
  19. answer "Text cursor must be in a story or text must be selected."
  20. else
  21. put "false" into bailout
  22. end if
  23.  
  24. end checkTextToolIsOn
  25.  
  26. on help
  27.  
  28.  
  29. put  dialog (preload, 128) into thedialog
  30. put "---a\0" into item2
  31. put "---a\1" into item3
  32. put "---a\2" into item4
  33.  
  34. repeat forever
  35. get dialog(display, thedialog)
  36. if (it = 1) then exit repeat
  37. end repeat
  38. get dialog(dispose, thedialog)
  39.  
  40. end help
  41.  
  42.     c<BÏ